home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 August / 64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64 / demo modul34 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  355 b   |  18 lines
  1. 100 rem  text in dreieckform ausgeben
  2. 110 do
  3. 120 :  print "bitte text eingeben" : input x$ : print
  4. 130 :  n=1 : q=1
  5. 140 :  do while n>0
  6. 150 :     print left$(x$,n)
  7. 160 :     n=n+q
  8. 170 :     if n=len(x$) then q=-1
  9. 180 :  loop
  10. 190 :  print
  11. 200 :  do
  12. 210 :     input "nochmal (j/n) ";a$
  13. 220 :     exit if a$="j" or a$="n"
  14. 230 :     print "falsche eingabe"
  15. 240 :  loop
  16. 250 loop until a$="n"
  17. 260 end
  18.